home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / G-Games / (c)g1.d64 / cont.ldr.pal (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  1KB  |  63 lines
  1. 10 OPEN1,8,8,"@0:ALT.LDR.O,P,W"
  2. 20 SYS700
  3. 30 .OPT O1
  4. 40 .BAS
  5. 100 REM **************************
  6. 110 REM *                        *
  7. 120 REM *  HIRES PICTURE LOADER  *
  8. 130 REM *    FOR COMMODORE 64    *
  9. 140 REM *                        *
  10. 150 REM *                        *
  11. 160 REM *    DON WHITE           *
  12. 170 REM *    47 ARIEL COURT      *
  13. 180 REM *    NEPEAN, ONTARIO     *
  14. 190 REM *    K2H 8J1             *
  15. 200 REM *                        *
  16. 210 REM *    613-829-2082        *
  17. 220 REM *                        *
  18. 230 REM **************************
  19. 240 REM
  20. 250 PRINT"[147]
  21. 260 [139]CT[177]0[167]340
  22. 270 [156]:[140]
  23. 280 CT[178]0:[143] INITIALIZE COUNTER
  24. 290 NN[178]20:[143] # PICTURES TO LOAD
  25. 300 V[178]53248:[151]V[170]17,59:[151]V[170]24,25:[143] HIGH RES SCREEN
  26. 310 :
  27. 320 [134]PI$(NN),CL(NN):[129]I[178]1[164]NN:[135] PI$(I),CL(I):[130]:[137]400
  28. 330 :
  29. 340 [153]"LOAD"
  30. 350 [161]ZZ$:[139]ZZ$[178]"S"[167][151]V[170]17,27:[151]V[170]24,21:[153]"LOAD":[128]
  31. 360 [151]53280,[181](16[172][187](1))
  32. 370 [151]828,CL(CT)
  33. 380 [158]"COLFILL"
  34. 390 [129]I[178]1[164]2000:[130]:[153]"LOAD"
  35. 400 [153]"LOAD":CT[178]CT[170]1:[139]CT[177]NN[167]270
  36. 410 [147] PI$(CT),8,1:[143] LOAD PICTURE ON HIRES SCREEN
  37. 420 :
  38. 430 [143] NAMES & COLOURS OF PICTURES
  39. 440 :
  40. 450 [131] SPIRAL.1,7,SUE,28,KAREN,28,SNOOPY,12,ALBERT,235
  41. 460 [131] DOLLAR,80,DIP,16,SNAIL,7,DES.1,5,7-3HILL,6
  42. 470 [131] MUSIC,2,MAP,16,DIANE,48,WILLY,112,RACCOON,144
  43. 480 [131] SINCOS1,3,WATCH,16,WINSTON,28,MICROMETER,139,NUDE,28
  44. 490 [128]
  45. 500 ; ASSEMBLER
  46. 510 SCRNLO [178] $00FB
  47. 520 SCRNHI [178] $00FC
  48. 530 COLOUR [178] $033C
  49. 540 COLFILL [178] [172]
  50. 550 LDA COLOUR
  51. 560 LDY #00
  52. 570 STY SCRNLO
  53. 580 LDX #04
  54. 590 NXPAGE STX SCRNHI
  55. 600 [130] STA (SCRNLO),Y
  56. 610 INY
  57. 620 BNE [130]
  58. 630 INX
  59. 640 STX SCRNHI
  60. 650 CPX #$08
  61. 660 BNE NXPAGE
  62. 670 RTS
  63.